.DO Externa i 

.LSTON 

.Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Hodu i e : Spare 
j. 

> This module contains all the routines that pertain 

> to the management of the spare table. 
> 

> PROCEDURE SprBlock< SpareType : BIT { !r8/bit ? } > 

> PROCEDURE SpareBlock< BlocklsSpare : BOOLERN { !r8/bit 4 } > 
> 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

.LSTOFF 

.FIN 

.DO External 

.LSTON 

. Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

> Procedure: SprBlock { Spare R Block } 

> This procedure is responsible for relocating a logical 

> block { note that the block type can be USER, or SPRRETflBLE > 

> from either the user data ar&a OR the spare ar&Q to 

> some location within the spare area. 

> This procedure is capable of gobbling up ALL available spare 

> block space and will ABORT if no space is available. 

> Inputs: 

> SpareType : BIT { !rfl/bit 4 > 

> Outputs: { none } 

> Algorithm: 

> BEGIN 

> iF < SpareType = Spare > 

> THEN 

> IF < BlkStat.SpareCode = BadBlock ) 

> THEN 

> DeieteSpare 

> SpareCount( DecJBadCnt ) 

> BlocktfoveC MBufferl, Buffer2 > 

> IF NGT< UrUer jCommon > 

> THEN 

> SpareBlock< SpareType > 

> ELSE SpareBlock< BadBlockType ) 

> UpDate^SprTbl 

> BiockMoye< Buffer2, RBuffer? > 

> END 
> 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO Internal 
.LSTON 
.Paqe 
.FIN 

SprBlock: 



Push Cylinder ;scwe current seek address 

Push Cylinder+t 

Push Head 

Push Sector 



SprBlk. 



Spr_WrUer : 



Tm !rflj,*Spare ; IF SpareType = Spare 

Jr Z,SprBlk_1 

Ca i I Get JSpr_Code 

Cp !rO,*B_Block 

Jr Nz.SprBlk^ 

Ca 1 1 De ! e teSpar e 

Ld !rO,*Dec_BadCnt 

Ld !r2,*. MBYTE. SpareCount 

Ld !r3,*.L0UBVTE. SpareCount 

Call BankJCall 

i 

Ca! I ReSeek 

Ld !r4,»10 ;bang on this block for a while 

Ld !r5,*0 ;init error count 

Ld !r2,». MBYTE. Buf2_To_WrBuf 

Ld !r3,*.L0MBVTE. Buf2_To_MrBuf 

Call BankJCall 



Ld RdErrCnt,*1G ; assume fai lure 

Cal I UrUer JCommon 

Jr Hz,SprUrU_1 

Ld !rG,RdErrCnt 

And !rO,«$OF ;mask off status info 

Cp irQ,*SprThresh 

Jr Gt,SprB!k_1 ; spare the block 

Rdd IrSj.IrO ;bump cumulative error count 

SpHJr-lL. 1 : Uj nz I r-4 , Spr-_S4rUer 

Cp ! r 5, *Spr Thresh ;take a percentage of total reads 

Jr Le^SprBlk-^ 

Spr-B 1 k_ 1 : Ca I i Spar eB I ock 

SprBik_3: Ld !r2,«. MBYTE. UpBate_J5prTb! 

Ld !r3,*.LOI4BVTE. UpDateJSprTb i 

Call Bank_Cail 

Ld !r2,«. MBYTE. Buf2_To_RBuf 

Ld !r3,«.L0MBVTE. Buf2_To_RBuf 

Cal I BankJCai I 

SprBlkJRet: Pop !rF ; retrieve current seek address 

Pop IrE ;head 

Pop !rB ; lo-cyl 

Pop irC ;hi-cyl 

Cal I Seek_vector jput us back where we were! 
Ret 



.LSTOFF 

.DO 

.LSTON 



External 



>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 



> Procedure: SpareBiock 
> 

> This function performs the actual sparing. 
> 

> Inputs: 

> SpareType : BIT { !rfl/bit 4 } 
j. 

> Outputs: { none } 



BOOLERN { !r9 } 
BYTE { !r4 > 
BOOLERN { !r5 } 



> Local Uariables: 

> Spar i ngflSpare 

> SpareLocation 

> Error 
> 

> Algorithm: 
> 

> BEGIN 

> IF < BlkStat.SpareCode = BadBlock ) 

> THEN 

> RddSpareC GetNe«>Spare< Load-Logical >, Load-Logical, BadBlock ) 

> SpareCount< lnc_BadCnt > 

> ELSE 

> REPERT 

> IF < BlkStat.SpareCode = Spare > 

> THEN 

> Location := SrchSpTabK Load_Logical ) 

> Ptr := Get_Ptr< Location > 

> Ptr*. Useable := False 

> SpareCount< Inc-SprCnt > 

> BlkStat.SpareCode := SpareBiock 

> Location := GetNewSpare< Load-Logical ) 

> flddSpare( Location, Load JLog i ca I , SpareBiock > 

> SeekJType := flccessJOffset 

> Seek( Get_Cyl_HJS< HulRCLn< Location ) > > 

> UNTIL WrUer-Common 

> END 



>>>>>>>>>>>>>>>>>>>>>>>>>>>>:>>>> 


.LSTOFF 




.FIN 




.DO 


Internal 


.LSTON 




.Page 




.FIN 




>pctreB 1 ock : 




Ld 


!r0,*1 ;byte 1 


Ld 


1 r 1 , *Stat_Spare 


Cai 1 


SetStatus 


Tm 


!rfi.,*Spare 


Jr 


Nz,S_Blk_Bpt 


Cai I 


Get_SprJCode 


Cp 


!rG,*B_Biock 


Jr 


Z,S_Blk_End 


Call 


Load_Log i ca I 


Call 


GetNecuSpare 


Ld 


IrF.IrO 


Ld 


ir8..*BadBlock 


Call 


RddSpare 


Ld 


IrO #lncJBadCnt 



Ld !r2,*.HIBVTE. SpareCount 

Ld !r3,*.LQUBVTE. SpareCount 

Call Bank-Call 

Jr S_Blk_End 



S_B I k JRp t : Ca i i Load_Log i ca I 

Ca I I SprJEnter 
Jr Nz,S_Blk_End 



Cp IrG^Error+ExJteadErr ; check for sparing threshold 

Jr Nz,S_Blk_Rpt 



S_Blk_£nd: 


Jp 
.Page 


BankJtet 


SprJEnter: 


Call 


GetJSprjCode 




Cp 


!rO,*S_Block 




Jr 


Nz,SJBIkjNew 




Call 


Ex tPushJJ ec tor 




Call 


SrchSpTabl 




Push 


\rl 




Push 


F ! ags 




Call 


Ex tPop_Uec tor- 




Pop 


Flags 




Pop 


!r1 




Jr 


Nz,S_BlkJUnuse 



;save possible ptr to element 



Call Abort 



SJBfkJLJnuse: 


Ld 


!r0, Ir1 




Call 


Get_Ptr 




Lde 


!r0,§!!r2 ;E!ement.Useabie 




find 


!rO,*$FF-Useable 




Lde 


§! !p2, !r0 


S_BlkJte».u: 


Ld 


! r 1 * 1 nc_Spr Cn t 




Ld 


!r2,*.HIBVTE. SpareCount 




Ld 


!r3 # ».L0MBVTE. SpareCount 




Call 


BankJCal 1 




find 


BlkStat,*$FC ;mask out the 




Or 


BlkStat>S_Block 




Call 


GetNewSpare 




Ld 


IrF, irG 




Ld 


! r8, #Spare 




Call 


fiddSpare 




Ld 


Seek_Type , *Rccess JO f f se t 




Ld 


!rG, !rF ;get Location back 




Inc 


!r0 ; count 1. .76 




Ld 


!r2,«.HIBYTE. MulRO_m 




Ld 


ir3,*.LGUBVTE. iluiRCLm 




Call 


BankJCal 1 




Ld 


!r2,*.HIBVTE. GetJCyl_Hj3 




Ld 


!r3,*.LGUBYTE. GetJCyl_R_S 




Call 


BankJCal 1 




Ld 


IrGJrF 




Ld 


!r2,«.HIBVTE. ReS1ap_Sector 




Ld 


!r3,».LOI4BVTE. ReHapJSector 



:= False 



eai i 

Ld 

Call 



Bank_ca I l 

IrFJrO 

Seek_Uector 



Spr_LdBuf2: 
Spr_LdWr-Buf 



Cp DataType , *User-_type 

Jr Z,SprJ_dBuf2 

Ld 1^2,*. Hi BYTE. SprChkSum ; calculate new checkbyte 

Ld !r3,#.LQWBVTE. SprChkSum 

Call BankJCaN 

Ld !r2,*.HIBVTE. Spr_To_MrBuf 

Ld !r3,«.L0WBVTE. Spr_To_WrBuf 

Jr Spr_LdUrBuf 

Ld !r2,*.HIBVTE. Buf2_TG_i4rBuf 

Ld !r3,#.LOl4BYTE. Buf2_To_WrBuf 

Call BankJCaN 

Cal I UrUerJCommon 

Jp Bank_Ret 



LSTOFF 



